MacFormat España 25/MacFormat n. 25 (Spain)/MacFormat 25.bin/mac/Demos/Print Artist Demo/PA12-Mac.Dxr/00252.ls

Text File | 1996-10-03 | 331 b | 15 lines

on exitFrame
  global whatSpeed, whatFactor, frameLoop
  if frameLoop = 0 then
    set whatSpeed to whatSpeed + (whatFactor + 400)
  end if
  if (the timer < whatSpeed) and (the volume of sound 2 < 250) then
    set frameLoop to 1
    go(the frame)
  else
    resetTimer()
    set frameLoop to 0
    go(the frame + 1)
  end if
end